// Выделение динамической памяти
var p: ^real;
  
begin
  // Выделили динамическую память и в p записали ее адрес
  New(p);
  p^ := 3;
  writeln('Значение в динамичесской памяти = ',p^);
  // Возврат динамической памяти, на оторую указывает p
  Dispose(p);
end.  